home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / HyperCard Files / MacMathPascal / background_2607.txt < prev    next >
Encoding:
Text File  |  1988-09-05  |  5.1 KB  |  248 lines
  1. -- background: 2607 from stack: in
  2. -- bmap block id: 4312
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13. on opencard
  14.   put the name of this card into it
  15.   put second word of it into it
  16.   delete first char of it
  17.   delete last char of it
  18.   put it into background field "NAME2"
  19.   put it into background field "NAME1"
  20. end opencard
  21.  
  22.  
  23.  
  24. -- part 6 (field)
  25. -- low flags: 01
  26. -- high flags: 0007
  27. -- rect: left=13 top=196 right=315 bottom=483
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 4
  32. -- text size: 9
  33. -- style flags: 0
  34. -- line height: 12
  35. -- part name: Source
  36.  
  37.  
  38. -- part 8 (button)
  39. -- low flags: 00
  40. -- high flags: 0000
  41. -- rect: left=478 top=318 right=341 bottom=503
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 6179 / 6179
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Next
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   set the lockScreen to true
  53.   go to next card
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 9 (button)
  59. -- low flags: 00
  60. -- high flags: 0000
  61. -- rect: left=14 top=316 right=339 bottom=40
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 6460 / 6460
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Prev
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   set the lockScreen to true
  73.   go to prev card
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 16 (button)
  79. -- low flags: 00
  80. -- high flags: 8003
  81. -- rect: left=74 top=318 right=338 bottom=187
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Create Program
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   Answer "Create the Pascal Program?" with "OK" or "Cancel"
  93.   if it = "OK" then
  94.     put the name of this card into it
  95.     put second word of it into it
  96.     delete first char of it
  97.     delete last char of it
  98.     open file it
  99.     write field source to file it
  100.     close file it
  101.   end if
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 17 (field)
  107. -- low flags: 01
  108. -- high flags: 0007
  109. -- rect: left=13 top=45 right=170 bottom=483
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 4
  114. -- text size: 9
  115. -- style flags: 0
  116. -- line height: 12
  117. -- part name: Documentation
  118.  
  119.  
  120. -- part 18 (button)
  121. -- low flags: 00
  122. -- high flags: 8003
  123. -- rect: left=194 top=318 right=338 bottom=256
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Index
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   --set the lockScreen to true
  135.   go to card id 5750
  136. end mouseUp
  137.  
  138.  
  139.  
  140.  
  141. -- part 19 (button)
  142. -- low flags: 00
  143. -- high flags: 8003
  144. -- rect: left=263 top=318 right=338 bottom=363
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Introduction
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   set the lockScreen to true
  156.   go to card id 2244
  157.   set the lockscreen to false
  158.   set visible of Field Documentation to False
  159.   set visible of Field Source to False
  160.   set visible of BACKGROUND button "Introduction" to False
  161.   set visible of BACKGROUND button "Create Program" to False
  162. end mouseUp
  163.  
  164.  
  165.  
  166.  
  167. -- part 20 (button)
  168. -- low flags: 00
  169. -- high flags: 0000
  170. -- rect: left=368 top=319 right=338 bottom=392
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 21847 / 21847
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Go home
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set the lockScreen to true
  182.   go home
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 22 (field)
  188. -- low flags: 00
  189. -- high flags: 0000
  190. -- rect: left=69 top=178 right=197 bottom=203
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: NAME2
  199.  
  200.  
  201. -- part 23 (field)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=117 top=29 right=48 bottom=251
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: NAME1
  213.  
  214.  
  215. -- part 25 (button)
  216. -- low flags: 80
  217. -- high flags: A003
  218. -- rect: left=126 top=317 right=337 bottom=218
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: show menu
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   set the visible of background button "show menu" to false
  230.   set the visible of background button "hide menu" to true
  231.   show menubar
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 26 (field)
  237. -- low flags: 00
  238. -- high flags: 0001
  239. -- rect: left=452 top=322 right=341 bottom=478
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 0
  243. -- font id: 3
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: page
  248.